home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Word / C / CoTemplatesDemo.cpt / Buttons / Clipped Button / Clipped Button
Encoding:
Text File  |  1989-02-04  |  2.7 KB  |  152 lines  |  [CTPP/CTMP]
  1. % button text
  2. % Gregory Kruckewitt
  3. % 3-March-87
  4. % var for fill  page
  5. /TM 496 def
  6. /BM 296 def
  7. /LM 206 def
  8. /RM 406 def
  9. /newline
  10. { currentpoint Size3 1.20 mul sub
  11. exch pop LM
  12. exch moveto } def
  13.  
  14. /nllfNec
  15. { currentpoint pop RM gt
  16. {newline} if } def
  17.  
  18. /done?
  19. { currentpoint exch pop BM lt } def
  20.  
  21. /fillpage
  22. { 
  23. /strg exch def
  24. { { pop pop nllfNec} strg kshow
  25. done? {exit} if
  26. } loop
  27.  } def
  28. /outsidecircletext
  29.     {circtextdict begin
  30.         /radius exch def
  31.         /centerangle exch def
  32.         /ptsize exch def
  33.         /str exch def
  34.         /xradius radius ptsize 4 div add def
  35.  
  36.     gsave
  37.     centerangle str findhalfangle add rotate
  38.  
  39. str
  40. {/charcode exch def
  41.         ( ) dup 0 charcode put outsideplacechar
  42. }forall
  43.     grestore
  44.     end
  45. }def
  46.  
  47. /insidecircletext
  48. {circtextdict begin
  49.         /radius exch def  /centerangle exch def
  50.         /ptsize exch def  /str exch def
  51.  
  52.     /xradius radius ptsize 3 div sub def
  53.     gsave
  54.   centerangle str findhalfangle sub rotate
  55. str
  56.  {/charcode exch def
  57.             ( ) dup 0 charcode put insideplacechar
  58. }forall
  59. grestore
  60. end
  61. }def
  62.  
  63. /circtextdict 16 dict def
  64.     circtextdict begin
  65. /findhalfangle
  66.         {stringwidth pop 2 div
  67.   2 xradius mul pi mul div 360 mul
  68. }def
  69.  
  70.  
  71. /outsideplacechar
  72. {/char exch def
  73.     /halfangle char findhalfangle def
  74. gsave
  75.         halfangle neg rotate
  76.     radius 0 translate
  77.     -90 rotate
  78.     char stringwidth pop 2 div neg 0 moveto
  79. char show
  80. grestore
  81. halfangle 2 mul neg rotate
  82. }def
  83.  
  84. /insideplacechar
  85. {/char exch def
  86.     /halfangle char findhalfangle def
  87.     gsave
  88.     halfangle rotate
  89.     radius 0 translate
  90.     90 rotate
  91.         char stringwidth pop 2 div neg 0 moveto
  92.     char show
  93.     grestore
  94.     halfangle 2 mul rotate
  95. }def
  96.  
  97.     /pi 3.1415923 def
  98. end
  99.  
  100. /Badge         
  101.     {
  102.     Fontname1 findfont Size1 scalefont setfont
  103.  
  104.     topline % top of circle text var from turbo
  105.  
  106.     Size1 90 65 outsidecircletext
  107.     Fontname2 findfont Size2 scalefont setfont
  108.  
  109.     bottomline % bottom of circle text var from turbo
  110.  
  111.     Size2 270 70 insidecircletext
  112.     
  113. } def
  114. /cutline
  115. {newpath  .5 setgray 0 0 98 0 360 arc   closepath clip} def   % stroke 0 setgray draw circle?
  116. /cutline2
  117. {newpath  .5 setgray 0 0 98 0 360 arc  stroke closepath } def   % stroke 0 
  118. /fitit % auto sizing routine
  119. { /str exch def
  120.   /size exch def
  121. { size 1 sub
  122. Fontname4 findfont size scalefont setfont
  123. str dup stringwidth pop 145 gt 
  124. { fitit size Name} { exit} ifelse
  125. } loop
  126. } def
  127. % START THE PROCESS
  128. gsave 
  129. 306 396 translate cutline 
  130.  
  131. Fontname3 findfont Size3 scalefont setfont
  132. -306 -396 translate LM TM moveto  
  133. .8 setgray
  134. background ( ) eq {/background (                 ) def} if
  135. background fillpage clip
  136.  
  137. grestore
  138. gsave
  139. 306 396 translate cutline2
  140. grestore
  141. % Place the badge 4 times on page
  142. gsave 306 396 translate  Badge grestore % upper left
  143.  
  144. % lets try one name
  145. gsave 
  146.   Size4 Name fitit 
  147. 306 Name stringwidth pop  2 div sub 396 moveto Name show grestore
  148.  
  149.  
  150. % /#copies 1 def    % number of pages
  151. showpage
  152.